Prace s verzi programu

Otázka od: Kalhous

8. 11. 2004 8:45

D7
Muzete me nekdo nakopnout spravnym smerem kde se dozvedet neco o tom jak se
dostat v programu k verzi kterou muzu nastavit v Project Options?

Z.Kalhous
ToWare s.r.o.

Odpovedá: Zapletal Martin

8. 11. 2004 8:55

Treba takhle...

Function GetVerApp(const FileName: string) : string;
var
  dwHandle :THandle;
  dwSize :DWORD;
  lpData,lpData2:Pointer;
  uiSize :UINT;

begin
  Result:='';
  dwSize:= GetFileVersionInfoSize(PChar(FileName), dwSize);
  if dwSize<>0 then
  begin
    GetMem(lpData, dwSize);
    if GetFileVersionInfo(PChar(FileName),dwHandle, dwSize, lpData) then
    begin
      uiSize:=SizeOf(TVSFixedFileInfo);
      VerQueryValue(lpData,'\', lpData2,uiSize);
      with PVSFixedFileInfo(lpData2)^ do
        Result:= Format('%d.%d.%d.%d', [
                 HiWord(dwProductVersionMS),
                 LoWord(dwProductVersionMS),
                 HiWord(dwProductVersionLS),
                 LoWord(dwProductVersionLS)]);
    end;
    FreeMem(lpData, dwSize);
  end;
end;

Ja to pouzivam prakticky v kazdem programu.

Martin Zapletal

> D7
> Muzete me nekdo nakopnout spravnym smerem kde se dozvedet neco o tom jak
> se dostat v programu k verzi kterou muzu nastavit v Project Options?

Odpovedá: Milan Tomes

8. 11. 2004 9:01

A nebo pouzit TJclFileVersionInfo (unit JclFileUtils)

S pozdravem

Milan Tomes

> [mailto:delphi-l-owner@clexpert.cz]On Behalf Of Zapletal Martin
> Sent: Monday, November 08, 2004 8:45 AM
>
> Function GetVerApp(const FileName: string) : string;
> [snipped]
>
> > Muzete me nekdo nakopnout spravnym smerem kde se dozvedet neco
> o tom jak
> > se dostat v programu k verzi kterou muzu nastavit v Project Options?